home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PROGEDIT
/
3458B.ZIP
/
AMAC44B.ZIP
/
TIM006.QM
< prev
next >
Wrap
Text File
|
1991-08-02
|
4KB
|
128 lines
* TIM006.QM
* Written By Tom Hogshead
* [ See TIMERxx.QM For Use ]
* August 2, 1991
* Key Subfile
* ===== ========= =====================================================
* @(n) --Makes Files Needed For @1/@p/@r
* {e:\up\TIMER14}--Return To TIMERxx.QM
*
*--eoi
*
* ----------------------------------------------------------------------
* @(n) Makes Files: Sequential Line Number File (001-999), < $line# >
* : Zero Length File for Counting, < 0k >
* : File to Select Number of Repeats/Cycle, < $repeat >
* 554 bytes Sun 07-07-1991 14:03:45 (TH @n)
* ----------------------------------------------------------------------
* This macro makes files needed for @1, @p and @r which are included.
* INSERT must be ON.
@n macrobegin
*-- Make $line# file ---
editfile "$Line#" return
killfile quit
editfile return
addline 999
*-- Indented portion of this macro was written by John Goodman to
* prepend line numbers in front of each line of text. Use of
* windows added by TH ...
UnmarkBlock
BegFile
OneWindow HorizontalWindow
EditFile "NUL" Return
DropAnchor
"0123456789"
Copy BegLine
Paste Paste
DropAnchor
EndLine CursorLeft
StoreScrBuff "1" Return
UnmarkBlock
PrevWindow
ShiftRight
"000"
MAINLOOP:
NextWindow
BegFile
LOOP:
DelCh
EndLine
JTrue INCR:
GetScrBuff "1" Return
UnmarkBlock
PrevWindow
BackSpace "0"
CursorLeft
NextWindow
CursorDown
Jump LOOP:
INCR:
BegLine
DropAnchor
PrevWindow
BackSpace
CopyBlock
BegLine
CursorDown
JFalse END:
ShiftRight
GetPrev GetPrev GetPrev
Jump MAINLOOP:
END:
UnmarkBlock
BegFile
NextWindow
Quit
PrevWindow
OneWindow
* 102 bytes Tue 06-04-1991 21:17:50 (JG)
*--
endfile
backspace backspace backspace backspace
savefile * Save $line# file
*-- Make zero length file 0k ---
dos "rem>0k" return return * Make 0k file
*-- Make $repeat file ---
editfile "$repeat" return
killfile quit
editfile return
addline " 1!" gotocolumn "9" return " 1"
gotocolumn "17" return " 1 *" begline
addline " 5!" gotocolumn "9" return " 1"
gotocolumn "17" return " 5 *" begline
addline " 50!" gotocolumn "9" return " 1"
gotocolumn "17" return " 50 *" begline
addline "100!" gotocolumn "9" return " 2"
gotocolumn "17" return "100 *" begline
addline " ½k" gotocolumn "9" return " 1"
gotocolumn "17" return "500" begline
addline " 1k" gotocolumn "9" return " 2"
gotocolumn "17" return "500" begline
addline " 5k" gotocolumn "9" return " 10"
gotocolumn "17" return "500" begline
addline " 10k" gotocolumn "9" return " 20"
gotocolumn "17" return "500" begline
addline " 25k" gotocolumn "9" return " 50"
gotocolumn "17" return "500" begline
addline " 50k" gotocolumn "9" return "100"
gotocolumn "17" return "500" begline
addline "100k" gotocolumn "9" return "200"
gotocolumn "17" return "500" begline
addline
gotocolumn "21" return
insertdate
inserttime
markline
begfile
shiftright
unmarkblock
begfile delline
savefile * Save $repeat file
*
* 397 bytes Thu 06-20-1991 12:38:34 (TH @n)
* 554 bytes Sun 07-07-1991 14:03:45 (TH @n, added 1/5/50/100 repeats)